(normal-top-level): Call abbreviate-file-name again after calling command-line.

diff --git a/lisp/startup.el b/lisp/startup.el
index 49a423f8a7aeabd26ce95bdd6303b0bd69ebe50c..d6d984fc8397afbcb0d15bb19cd94f777d182368 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -143,6 +143,8 @@ directory name of the directory where the `.emacs' file was looked for.")
     (setq default-directory (abbreviate-file-name default-directory))
     (unwind-protect
        (command-line)
+      ;; Do this again, in case .emacs defined more abbreviations.
+      (setq default-directory (abbreviate-file-name default-directory))
       (run-hooks 'emacs-startup-hook)
       (and term-setup-hook
           (run-hooks 'term-setup-hook))